home *** CD-ROM | disk | FTP | other *** search
/ Quarterdeck InternetSuite / Quarterdeck InternetSuite.iso / qsockpro.qip / INTNCHNL.MPS < prev    next >
Encoding:
Text File  |  1996-03-20  |  1.9 KB  |  60 lines
  1. # Internet Channel PPP and SLIP login script
  2. # Copyright 1995 Quarterdeck Corporation
  3. # 5-9-95 TCB
  4.  
  5. STRING username
  6. STRING password
  7. STRING framing
  8. STRING IPAddress
  9.  
  10. #TRACE ON
  11. SetTimeout 90                      # reset maximum script timeout
  12.  
  13. # Get username from access method
  14. CfgGetValue "Username" username
  15. IF result = 0 THEN
  16.     ABORT "Can't load Username from qdeck.ini"
  17. ENDIF
  18.  
  19. # get password from access method
  20. CfgGetValue "Password" password
  21. IF result = 0 THEN
  22.     ABORT "Can't load Password from qdeck.ini"
  23. ENDIF
  24.  
  25. CfgGetValue "Framing" framing                                        # Added CEL
  26. IF result = 0 THEN                                                                                  
  27.         ABORT "Can't read 'Framing' setting from QDECK.INI."         # Added CEL
  28. ENDIF                                                                # Added CEL
  29.  
  30. CommWaitFor "service, please?"                           # Added CEL
  31.  
  32. IF framing = "MPPPP" THEN                                # Added CEL
  33.       CommSend   "ppp"                                   # Added CEL
  34. ENDIF
  35. IF framing = "MPSLIP" THEN                               # Added CEL
  36.       CommSend   "slip"                                  # Added CEL
  37. ENDIF                                                    # Added CEL  
  38.  
  39. CommSend "%r"               # send carriage return
  40.  
  41. CommWaitFor "name:"
  42.     CommSend username
  43.     CommSend "%r"
  44.  
  45. CommWaitFor "word:"
  46.     CommSend password
  47.     CommSend "%r"
  48.  
  49. IF framing = "MPSLIP" THEN                            # Added CEL
  50.     PRINT "%rGetting IP address for SLIP"             # Added CEL
  51.     CommWaitFor "Your address is"                     # Added CEL
  52.  
  53.     CommReadIPAddr IPAddress    
  54.     CfgSetValue "IPAddress" IPaddress                 # Added CEL
  55.  
  56.     PRINT "IP Address set to ["; IPAddress; "]"       # Added CEL
  57. ENDIF                                                 # Added CEL
  58.  
  59. END
  60.